[monolithed]

что-то типа такого (но лучше задайте свой вопрос на форуме по VB):

strTextFile = "C:\text.txt"

Function GetCharset(ByVal strTextFile)
    Const adTypeText = 2
    Const adModeReadWrite = 3

    With WScript.CreateObject("ADODB.Stream")
        .Type = adTypeText
        .Mode = adModeReadWrite
        .Open
        .Charset = "_autodetect_all"
        .LoadFromFile(strTextFile)
        GetCharset = .Charset
        .Close
    End With
End Function