半角转变为全角



  Public Function fnc_FullP(ByVal strHalf As String) As String
            Dim chrC As Char() = strHalf.ToCharArray
            Dim intC As Integer
            Dim intI As Integer

            Try

                For intI = 0 To chrC.Length - 1
                    intC = AscW(chrC(intI))
                    If intC = 32 Then
                        chrC(intI) = ChrW(12288)
                    ElseIf intC < 127 Then
                        chrC(intI) = ChrW(intC + 65248)
                    End If
                Next

            Catch ex As Exception
         
                Return vbNullString
            End Try

            Return New String(chrC)
        End Function