Hope it's helpful

ion (ion)
sNumber = Split(sVariable, "-")

If UBound(sNumber) > 1 Then
sVariable = sNumber(0) & "-"
For i = 1 To UBound(sNumber)
sVariable = sVariable & sNumber(i)
Next
End If
(#366852@0)
2002-2-12 -05:00

回到话题: a small VB question

回到论坛: HOME枫下论坛枫下论坛主坛工作学习IT技术讨论

URL:   
http://www.rolia.net/zh/post.php?f=0&p=366852