I have a macro that gets data from another program. I want to check that data
and "clean" it ie remove unneccessay blanks etc. The data is stored in the
variable BBAnswer. I then check that variable:

If IsRatingOK(BBAnswer) Then
........

Function IsRatingOK(BBAnswer As Variant) As Boolean
IsRatingOK = False
Rating = CleanRating(BBAnswer)
.............................
End Function

Function CleanRating(BBAnswer As Variant) As String
c_pos = InStr(1, BBAnswer, " ", 1)
................
on the last row I get an error if BBAnswer is not a string ie it has some
other format. Please help me how to solve this problem. Is there anything
like IsDate() or is there any other way of solving this? Please help! Any
help appreciated! Thanks alot in advance!