Private Function FormatString(ByVal nWert As Variant, _
  ByVal sFormat As String, _
  Optional ByVal nLen As Integer = 0)
 
  Dim sText As String
 
  sText = Format$(nWert, sFormat)
  If nLen > 0 Then
    While Len(sText) < nLen
      sText = " " & sText
    Wend
  End If
 
  FormatString = sText
End Function

For i = 1 to 5 
  Print #DNr, Tab(10); FormatString(XWERT(i), "0.0000", 13) 
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de