[求助]救急,如何在没有装vb的机子上用chr函数?

mars831221

如何在没有装vb的机子上用字符串函数?

发现在没装vb的机子上不能用chr     left       mid       right    等字符串函数,,

哪位高手来帮忙解决下,,,不胜感激啊.

下面程序中的红色函数都不能用,这些函数在哪个ddl中啊

如Function filterme(instring As String) As String
    Dim where As Long
    Dim outstring As String

    outstring = ""
    Do While True
        where = InStr(1, instring, vbCr)
        If where > 0 Then
            outstring = outstring & left$(instring, where - 1) & vbCrLf
            instring = Mid$(instring, where + 1)
        Else
            outstring = outstring & instring
            Exit Do
        End If
    Loop
    If Asc(Right$(outstring, 1)) <> 10 Then
        outstring = outstring & vbCrLf
    End If

    filterme = outstring
End Function