'----
'Это в модуль:
Public Const WC_COMPOSITECHECK = &H200
Public Const WC_DEFAULTCHAR = &H40
Public Const WC_DISCARDNS = &H10
Public Const WC_SEPCHARS = &H20

Public Const CP_ACP = 0
Public Const CP_OEMCP = 1
Public Const CP_MACCP = 2
Public Const CP_THREAD_ACP = 3
Public Const CP_SYMBOL = 42
Public Const CP_UTF7 = 65000
Public Const CP_UTF8 = 65001

Public Const MB_PRECOMPOSED = &H1
Public Const MB_COMPOSITE = &H2
Public Const MB_USEGLYPHCHARS = &H4
Public Const MB_ERR_INVALID_CHARS=&H8

Public Declare Function WideCharToMultiByte Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpWideCharStr As String, ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, _
ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long
'-----

CP_ACP - ANSI code page
CP_MACCP - Macintosh code page
CP_OEMCP - OEM code page
CP_SYMBOL - Symbol code page (42)
CP_THREAD_ACP
CP_UTF7
CP_UTF8

WC_NO_BEST_FIT_CHARS
WC_COMPOSITECHECK
WC_DISCARDNS
WC_SEPCHARS
WC_DEFAULTCHAR

Public Function ConvertString(ByVal strSrc As String, _
ByVal nFromCP As Long, _
ByVal nToCP As Long) As String
Dim nLen As Long
Dim strDst As String
Dim strRet As String
Dim nRet As Long

nLen = Len(strSrc)
strDst = String(nLen * 2, Chr(0))
strRet = String(nLen * 2, Chr(0))
nRet = MultiByteToWideChar(nFromCP, MB_PRECOMPOSED, strSrc, nLen, strDst, nLen)
nRet = WideCharToMultiByte(nToCP, 0, strDst, nRet, strRet, nLen * 2, ByVal 0, 0)
ConvertString = Left(strRet, nRet)
End Function

TextBox = StringConvert(TextBox, 20866, 1251)

'Значения для часто используемых кодовых страниц

Central European (DOS)852
Central European Alphabet (Windows)1250
Central European Alphabet (ISO)28592
Cyrillic Alphabet (DOS)866
Cyrillic Alphabet (Windows)1251
Cyrillic Alphabet (ISO)28595
Cyrillic Alphabet (KOI8-R)20866
Ukrainian Alphabet (KOI8-RU)21866
Latin 3 Alphabet (ISO)28593
Western Alphabet1252
Baltic Alphabet (Windows)1257
Baltic Alphabet (ISO)28594
Greek Alphabet (Windows)1253
Greek Alphabet (ISO)28597
Turkish Alphabet1254
Arabic Alphabet (Windows)1256
Arabic Alphabet (ISO)28596
Hebrew (DOS)862
Hebrew Alphabet (Windows)1255

Удаление непустого каталога

'----
Option Explicit

Private Sub Command1_Click()
On Error GoTo erhand
Dim delFSO As Object
Set delFSO = CreateObject("Scripting.FileSystemObject")
delFSO.DeleteFolder Text1.Text, True
Exit Sub
erhand:
If Err.Number = 76 Then
MsgBox ("Путь указан неверно"), vbCritical
Text1.SetFocus
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
If Text1.Text = Empty Then
MsgBox ("Введите путь"), vbCritical
Cancel = True
Exit Sub
End If
If InStr(Text1.Text, ".") <> 0 Then
MsgBox ("Укажите каталог, а не файл"), vbCritical
Cancel = True
Exit Sub
End If
End Sub
'----