Dazu schreib dir einfach eine Funktion, die dir den String ab dem Punkt zurückliefert, ich hab mal ein kleiens Beispielprogramm dazugeschrieben:
Option Explicit
Dim str_input As String
Dim str_output As String
Private Sub Form_Load()
str_input = ".hallo"
str_output = punkt(str_input)
MsgBox str_output
End Sub
Private Function punkt(instring As String) As String
Dim i As Integer
Dim tempstring As String
For i = 2 To Len(instring)
tempstring = tempstring & Mid(instring, i, 1)
Next i
punkt = tempstring
End Function
Gruss Homer