Launching a program with url

[dreamvb]

Hi not sure of this is what you want all it does is extact. Follow/Sol:Erath/ out of the url

Private Sub Command1_Click()
Dim e_pos As Integer
Dim url As String
    url = "cel://Follow/Sol:Earth"
    e_pos = InStr(1, url, "cel://", vbBinaryCompare)
    
    If e_pos <> 0 Then
        MsgBox Mid(url, e_pos + 6, Len(url) - e_pos - 6)
    End If
End Sub

Let me know if this is wrong or you need something else.