72 VBA - CorelDraw

CorelDraw X3
Visual Basic for Applications VBA

Se você conhece este assunto gostaria de me corresponder com você.
Por favor escreva-me.

Típico:
CorelDraw_VBA

Public Function Epl_StringLimpa(A_String As String)
'
' SP/08mai2003
' Leal, esta Function remove todo o lixo contido numa String.
' A Function deverá ser utilizada no: NomeChave e NomeProprio
' da tabela LG_01_Pessoa contida no C:\vb2222\pessoas\tabelas\pessoas.mdb
' Tabela do Código ASCII:
' de 0 à 47 = lixo
' de 48 à 57 = caracteres de A...Z, maiúsculos
' de 58 à 64 = lixo
' de 65 à 90 = caracteres de 0...9, algarísmos
' de 91 à 255 = lixo
'
Dim Letra As String
Dim Qt As Integer
Qt = Len(A_String) ' quantidade de caracteres
A_String = UCase(A_String) ' torna toda letras maiúsculas
Epl_StringLimpa = "" ' cria variável vazia
'
For x = 1 To Qt ' verifica cada um os caracteres
*
*
***