Text?

    Call ReadAByte(Command, &HA2B20E, Bytes)
    For I = LBound(Bytes) To UBound(Bytes)
        strMapname = strMapname & CStr(Bytes(I))
    Next

Dim sByte As Byte

Function ReadAString(Addie As Long, Optional Lenght As Long = 255) As String
    Dim Temp As String
    Dim I As Integer
    For I = 0 To Lenght
        Call ReadAByte(Command, Addie + I, sByte)
        Temp = Temp & Chr(sByte)
    Next
    Temp = nullTrim(Temp)
    ReadAString = Temp
End Function

Function nullTrim(s As String) As String
    Dim n As Integer
    n = InStr(s, Chr$(0))
    If (n > 0) Then
        nullTrim = Trim(Left(s, n - 1))
    Else
        nullTrim = Trim(s)
    End If
End Function