关于字串的提取！

[moleboy]

abcd-5678

我想分别吧 abcd 和5678 提取出来！
怎么办？

[射天狼]

Dim s As String
s = "abcd-5678"
MsgBox Left(s, InStr(s, "-") - 1)
MsgBox Mid(s, InStr(s, "-") + 1)

[rainstormmaster]

dim s as string
s="abcd-5678"
dim arr
arr=split(s,"-")
msgbox arr(0)'abcd
msgbox arr(1)'5678