Public Function stringToInteger(zahl As String) As Integer
 
    Dim rueckgabe As Integer
 
    If zahl = Null Or zahl = "" Then
        rueckgabe = -1
    Else
        rueckgabe = zahl
    End If
 
    stringToInteger = rueckgabe
 
End Function

zahl = stringToInteger(form.eingabe)

Public Function textboxToInteger(box As Textbox) As Integer
 
    Dim rueckgabe As Integer
 
    If box = Null Then
        rueckgabe = stringToInteger(Null)
    Else
        rueckgabe = stringToInteger(box)
    End If
 
    textboxToInteger = rueckgabe
 
End Function

zahl = textboxToInteger(form.eingabe)