How to add more symbols in a function/module 1

[greekpatriott]

Want to change this function
Public Function WBSTopLevel(Val1 As String) As String

If InStr(Val1, ".") > 0 Then
WBSTopLevel = Left(Val1, InStrRev(Val1, ".") - 1)
Else
WBSTopLevel = Val1
End If
End Function

to this
Public Function WBSTopLevel(Val1 As String) As String

If InStr(Val1, "." Or "-") > 0 Then
WBSTopLevel = Left(Val1, InStrRev(Val1, "." Or "-") - 1)
Else
WBSTopLevel = Val1
End If
End Function

But it does not work. Does anyone have a clue how to add more simples in this module?? Cheers

 

[PHV]

If InStr(Val1, ".") > 0 Then
WBSTopLevel = Left(Val1, InStrRev(Val1, ".") - 1)
ElseIf InStr(Val1, "-") > 0 Then
WBSTopLevel = Left(Val1, InStrRev(Val1, "-") - 1)
Else
WBSTopLevel = Val1
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[greekpatriott]

cheers PHV appreciated