DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function TrimA(MyString As String) As String
Dim tmp As String, i&, j&
For i = 1 To Len(MyString)
If Not Left$(MyString, 1) = " " Then Exit For
MyString = Replace(MyString, " ", "", Count:=1)
Next
tmp = StrReverse(MyString)
For j = 1 To Len(tmp)
If Not Left$(tmp, 1) = " " Then Exit For
tmp = Replace(tmp, " ", "", Count:=1)
Next
TrimA = StrReverse(tmp)
End Function