sNumber = Split(sVariable, "-")
If UBound(sNumber) > 1 Then
sVariable = sNumber(0) & "-"
For i = 1 To UBound(sNumber)
sVariable = sVariable & sNumber(i)
Next
End If
If UBound(sNumber) > 1 Then
sVariable = sNumber(0) & "-"
For i = 1 To UBound(sNumber)
sVariable = sVariable & sNumber(i)
Next
End If