Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim cardNumber As String = "9003125334656789"
Dim cardNumberWithSpaces As String = Regex.Replace(cardNumber, ".{4}", "$0 ")
Console.WriteLine(cardNumberWithSpaces)
End Sub
End Class
' run:
'
' 9003 1253 3465 6789
'