Програмно заставить VBA рассылать SMS через мобильный телефон

Function GetDec(Bin As String) As Long
    If InStr(1, Bin, "=") Then GetDec = 64: Exit Function
    If InStr(1, Bin, " ") Then GetDec = 256: Exit Function
    Dim Cnt As Integer
    Cnt = Len(Bin) - 1
    For T = 1 To Len(Bin)
    If Mid(Bin, T, 1) = 1 Then
    GetDec = GetDec + (2 ^ Cnt)
    End If
    Cnt = Cnt - 1
    Next
End Function
 
'Функция GetBin переводит число из десятичной в двоичную систему и возвращает результат -
'как строку, чтобы можно было представить двоичное число в виде "0011010". Параметр _
'cFormat определяет сколько должно быть бит в двоичном числе (cFormat=8, GetBin="00001101")
 
 Function GetBin(Dec As Single, cFormat As Integer) As String
    Dim sFormat As String
    sFormat = String(cFormat, "0")
    If Dec = 64 Then GetBin = "00000 ": Exit Function
    If Dec = 0 Then GetBin = sFormat: Exit Function
    Do While Dec >= 1
    Dec = Int(Dec) / 2
    If Dec = Int(Dec) Then
    GetBin = 0 & GetBin
    Else
    GetBin = 1 & GetBin
    End If
    Loop
    GetBin = Format$(GetBin, sFormat)
End Function

Sub Sleep(bytStep As Byte)
For i = 1 to bytStep 
    DoEvents
next i
end Sub

Function Sleep(TimeSleep As Integer)
 
 Chas = Timer()
 z = Chas + TimeSleep
1:
   T = Timer()
   If T < z Then GoTo 1
    
End Function

Public Function String7To8(str As String) As String
    Dim arr() As Byte           ' массив байт символов строки
    Dim i As Integer            ' текущий байт
    Dim c As Long               ' номер 7-битного цикла
    Dim lngLen As Long          ' длинна строки
    Dim lngLocal As Long        ' число бит, используемых от бита текущего байта
    Dim strAlien As String      ' используемые биты байта следующего байта
    Dim strLocal As String      ' используемые биты байта текущего байта
    Dim strResult As String     ' 16-ричное представление 8-битной строки
    
    lngLen = Len(str)
    strResult = ""
    
    ReDim arr(1 To lngLen) As Byte
    
    ' получаем массив байт из строки
    For i = 1 To lngLen
        arr(i) = AscW(Mid(str, i, 1))
    Next i
    
    c = 0
    lngLocal = 7
    
    ' перекодируем 7-битную строку в 8-битную
    ' Делаем 7 шагов из 8-ми и сразу переходим на 9-й ... и т.д.
    ' 8-й пропускаем из-за упаковки (смещение на один бит в каждом шаге)
    
    ' поскольку из 8-ми бит каждого байта используется только 7,
    ' то в функции Dec2Bin() в качестве параметра задаём возвращать только 7 бит
    ' и это не вызовет проблем, зато в отпадает надобность
    ' в следующей конструкции Right(Dec2Bin(numb), 7)
    
    For i = 1 To lngLen
        ' получаем биты текущего символа, не использовавшиеся на предидущем шаге
        strLocal = Left(Dec2Bin(arr(i + c), 7), lngLocal)
        
        ' получаем необходимое число бит следующего символа, чтоб дополнить текущий байт
        If ((i + c + 1) <= lngLen) Then strAlien = Dec2Bin(arr(i + c + 1), 7) Else strAlien = Dec2Bin(0, 7)
        strAlien = Right(strAlien, 8 - lngLocal)
        
        ' преобразовываем полученный составной байт в 16-ричную систему счисления
        ' и формируем строку байт
        strResult = strResult & LidingZero(Hex(Bin2Dec(Right(strAlien & strLocal, 8))), 2)
        
        ' задаём число переносимых Бит на следующем шаге
        lngLocal = IIf((lngLocal > 1), lngLocal - 1, 7)
        
        ' задаём смещение на байт (начало нового 7/8-битного цикла)
        If (lngLocal = 7) Then c = c + 1
        
        ' проверка выхода за пределы массива
        If (i + c + 1) > lngLen Then Exit For
    Next i
    
    String7To8 = strResult
End Function
 
Function Dec2Bin( _
        ByVal DecimalIn As Variant _
        , Optional NumberOfBits As Variant _
        ) As String
 
'Decimal To Binary
' [url]http://www.devhut.net/2010/06/22/vba-converting-between-decimal-and-binary/[/url]
' =================
' Source:   [url]http://groups.google.ca/group/comp.lang.visual.basic/browse_thread/thread/28affecddaca98b4/979c5e918fad7e63[/url]
' Author:   Randy Birch (MVP Visual Basic)
' NOTE:     You can limit the size of the returned answer by specifying the number of bits
 
    Dec2Bin = ""
    DecimalIn = Int(CDec(DecimalIn))
    
    Do While DecimalIn <> 0
        Dec2Bin = Format$(DecimalIn - 2 * Int(DecimalIn / 2)) & Dec2Bin
        DecimalIn = Int(DecimalIn / 2)
    Loop
    
    If Not IsMissing(NumberOfBits) Then
       If Len(Dec2Bin) > NumberOfBits Then
          Dec2Bin = "Error - Number exceeds specified bit size"
       Else
          Dec2Bin = Right$(String$(NumberOfBits, _
                    "0") & Dec2Bin, NumberOfBits)
       End If
    End If
End Function
 
Function Bin2Dec( _
        BinaryString As String _
        ) As Variant
 
'Binary To Decimal
' [url]http://www.devhut.net/2010/06/22/vba-converting-between-decimal-and-binary/[/url]
' =================
    
    Dim X As Integer
    For X = 0 To Len(BinaryString) - 1
        Bin2Dec = CDec(Bin2Dec) + Val(Mid(BinaryString, _
                  Len(BinaryString) - X, 1)) * 2 ^ X
    Next
End Function

TP_UD = String7To8(Text_SMS)

 strResult = strResult & LidingZero(Hex(Bin2Dec(Right(strAlien & strLocal, 8))), 2)

Public Function LidingZero(ByVal strNum As String, ByVal lngNumLen As Long) As String
    Dim lngLen As Long
    lngLen = Len(strNum)
    LidingZero = IIf((lngLen < lngNumLen), String((lngNumLen - lngLen), "0"), "") & strNum
End Function