Dim Zahl1 As Single
   Dim Zahl2 As Single
   Dim Ergebnis As Single
   Dim tmpStr As String
 
   Zahl1 = 6
   Zahl2 = 4
 
   Ergebnis = Zahl1 / Zahl2
   tmpStr = Str(Ergebnis)
 
   If InStr(1, tmpStr, ".") = 0 Then
      MsgBox "Ergebnis ist Null"
   Else
      MsgBox "Erste Stelle nach dem Komma ist: " & _
         Mid(tmpStr, InStr(1, tmpStr, ".") + 1, 1)
   End If

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control