Il carattere specifico sarebbe il vbNewLine.
Prova così:
codice:
Private Sub Command1_Click()
Dim Penultimo As Integer, dove As Integer
dove = 1
Do While InStr(dove, Text1, vbNewLine) <> 0
    Penultimo = dove
    dove = InStr(dove, Text1, vbNewLine) + 1
Loop
MsgBox Right(Text1, Len(Text1) - dove)
End Sub