Du kannst nach den faktor-erweitern und vor der <= 0 abfrage eine Abfrage einfügen, ob die Zahl überhaupt <> 0 ist, egal ob + oder -

und dann auf definitiv +0.0 setzen
Code:
    While _zaehler <> _n
       _faktor = _faktor * 10
       Incr _zaehler
    Wend
    _x = _x * _faktor

    If _x < 1.0 And _x > -1.0 Then        '  -1.0  < _x < +1.0  
         _x = 0.0
    End If

    If _x >= 0 Then
      _minus = 0
    Else
      _minus = 1
      _x = Abs(_x)
    End If

    _x = Round(_x)

    If Ausgabe_string <> "0" Then _nachkomma_string = Right(ausgabe_string , _n) Else _nachkomma_string = "0"

----etc----