去掉字母A-Z以及数字0-9以外的其他字符函数 （原创）

Function SubstituteEx(Strtemp As String) As String
'************************************************************
'一个字符串中剥离品番部分，去掉A-Z,0-9，-
'以外的字符
'************************************************************

    Dim VarTemp As String
    Dim i As Long
    Dim sig As Boolean
    
    For i = 1 To Len(Strtemp)
    
        sig = True
        VarTemp = Right(Left(Strtemp, i), 1)
    
        If Asc(UCase(VarTemp)) < 48 Or Asc(UCase(VarTemp)) > 90 Then
        
            If Asc(UCase(VarTemp)) <> 45 Then
            
                sig = False
                
            End If
            
        Else
        
            If (Asc(UCase(VarTemp)) > 57 And Asc(UCase(VarTemp)) < 65) Then
            
                sig = False
                
            End If
            
        End If
        
        If sig Then
        
            SubstituteEx = SubstituteEx & VarTemp
            
        End If

    Next
    
End Function