sTitalbetrag = TrimLeft(Format(nBetrag, "##'###'##0.00"), "'")

' Entfernt alle angegebenen Zeichen links vom String
Public Function TrimLeft(ByVal Value As String, _
  Optional ByVal Char As String = " ", _
  Optional ByVal nCount As Long = 0) As String
 
  If Len(Value) > 0 Then
    If Char = " " Then
      TrimLeft = LTrim$(Value)
    Else
      Dim nLen As Long
 
      nLen = Len(Char)
      If nCount > 0 Then
        Dim i As Long
        While Len(Value) > 0 And Left$(Value, nLen) = Char And i < nCount
          Value = Mid$(Value, nLen + 1)
          i = i + 1
        Wend
      Else
        While Len(Value) > 0 And Left$(Value, nLen) = Char
          Value = Mid$(Value, nLen + 1)
        Wend
      End If
    End If
  End If
 
  TrimLeft = Value
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

...
    sTotalBetrag = Format(nBetrag, "##'###'##0.00")
    If Left$(sTotalBetrag, 1) = "'" Then
        sTotalBetrag = Mid$(sTotalBetrag, 2)
    End If
...

nBetrag = 21947677.5
sTotalBetrag = Format(nBetrag, "#,0.00") ' = 21.947.677,50