これでもEUCかSJISかはある程度判別できそうでしょうか？
ちょっとご指摘等ありましたら皆さんのお力を借りたいと思います。
Public Function chkCode_SJIS(ByVal ChkFileStr As String) As Boolean
Dim iRet ,iRet2,iRet3 As String
Dim As String
Dim iFileNo As Integer
Dim i As Integer
Dim StrLine As String
iFileNo = FreeFile
Open ChkFileStr For Input As #iFileNo
Do While Not EOF(iFileNo)
i = 1
Line Input #iFileNo, StrLine
Do While i < Len(StrLine) + 1
iRet = StrConv(Mid(StrLine, i, 1), vbWide) 'ワイド文字に変換してみる
If InStr(1, iRet, Mid(StrLine, i, 1)) = 0 Then '変更前と変更後に際がある場合
chkCode_SJIS = False 'EUCの可能性があるため、処理を継続
Else 'かわりなかった