Private Sub Form_Load()
    Dim SA As String
    Dim SB As String
 
    SA = 23.4
    SB = 56
 
    Zahl1 = FormatNumber(SA, 1)
    Zahl2 = FormatNumber(SB, 1)
 
    ' ,2 wären zwei Nachkommastellen z.B.
 
    MsgBox Zahl1 & vbCrLf & Zahl2
 
End Sub