Private Sub Command1_Click()
    Dim dblTemp As Double
    Dim sTemperatur As String
 
    sTemperatur = "9000"
 
    dblTemp = "&H" + sTemperatur
    If dblTemp > 32767 Then
        dblTemp = -(dblTemp - 32767)
    End If
 
    dblTemp = dblTemp / 100
    dblTemp = Format(dblTemp, "0.00")
    Text1 = CStr(dblTemp)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1