参考代码
Dim str As String = "¥4"Dim s As String = str.SubString(0, 1)If s = "¥" Then msgbox("人民币")Else If s = "$" Then msgbox("美元")End Ifmsgbox(str.substring(1))