7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub cmdTest_Click()
Dim strY As String
Dim varR As Variant
'txtY.text="12,36"
strY = Trim$(txtY.Text)
varR = Split(strY, ",", , vbTextCompare)
MsgBox "" & varR(0) & "|" & varR(1), vbInformation, "系统消息"
End Sub