Function GetNumV(Text)
Dim pos As Integer
Do
pos = InStr(pos + 1, Text, "V")
If pos > 2 Then
If Mid(Text, pos - 2, 2) Like "##" Then
GetNumV = Val(Mid(Text, pos - 2, 2))
Exit Function
End If
End If
If pos > 1 Then
If Mid(Text, pos - 1, 1) Like "#" Then
GetNumV = Val(Mid(Text, pos - 1, 1))
Exit Function
End If
End If
Loop While pos
GetNumV = Null
End Function
|