wie kan ich an eine bestimte stelle in einer varea

Sub Text_Kommentar_start_zeit2()
Dim tx As String, tx1 As String, tx2 As String
Dim scheinnummer As String
Dim i As Integer
Dim b As Byte
Application.Volatile
scheinnummer = "München - Karlsruhe 22.10.2004 19:00"
tx = Trim(StrReverse(scheinnummer))
b = InStr(tx, " ")
b = InStr(b + 1, tx, " ")
i = Len(tx)
tx1 = StrReverse(Left(tx, b))
tx2 = StrReverse(Right(tx, i - b))
ActiveCell.Comment.Text Text:=tx1 & tx2
End Sub