No existe una expresión regular para manejar cadenas de texto. Debes de elaborar un código para cada uno de los tipos de salida que tengas.
Para lo que mencionas puedes usar este:
Private Sub Command1_Click()
Dim intX As Integer
Dim strSalida As String
strSalida = "MODEL:Nokia"
intX = InStr(1, strSalida, ":")
Text1.Text = Right$(strSalida, Len(strSalida) - intX)
End Sub
Como puedes ver, necesitas un cuadro de texto llamado Text1 y un botón Command1
