'Untested Code but you get the idea.
Public Function IsTrue(sInput as String) as Boolean
If lcase(sInput) = "true" Then
Return True
ElseIf lcase(sInput) = "false" Then
Return False
End If
End Function
dim simon as string = "true"
dim b as boolean
b = boolean.Parse(simon)
Dim simon As String = "true"
Dim b As Boolean
If simon = "true" Then
b = True
Else
b = False
End If