Public Function PruefeObInteger(strWert As String, ByRef intWert As Integer) As _
  Boolean
Dim dblWert As Double
 
PruefeObInteger = False
strWert = Text1.Text
If IsNumeric(strWert) Then
    dblWert = CSng(strWert)
    If dblWert >= -32768 And dblWert <= 32767 Then 'Wert im Integer-Bereich
        If dblWert = CInt(dblWert) Then
            intWert = CInt(dblWert)
            PruefeObInteger = True
        End If
    End If
End If
End Sub

Wert2 = Wert1 * 200 / 32767