Public Function AscToString(ParamArray nAsc() As Variant) As String
  Dim i As Integer
  Dim sString As String
 
  For i = 0 To UBound(nAsc)
    sString = sString & Chr$(nAsc(i))
  Next i
  AscToString = sString
End Function

sString = AscToString(116, 101, 115, 116)  ' test

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de