CSV Validate Punctuation and Spacing
Attribute VB_Name = "VOTD_CSVParser"
Option Explicit
Sub ValidatePunctuation_Spacing()
Dim VOTDTextArray(0 To 370) As Variant
Dim position As Integer
Dim VOTDText As String
Range("c3").Activate
'loop over the VOTDText columns starting at 0
position = 0
Do While ActiveCell.Value <> ""
VOTDTextArray(position) = ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
position = position + 1
Loop
End Sub
Public Function IsPunctuation(ByRef arr() As String)
Dim intPos As Integer
For intPos = 1 To Len(strValue)
Select Case Asc(Mid(strValue, intPos, 1))
Case 33 To 47, 58 To 63 'Checks for ASCII punctuation characters
IsPunctuation = True
Case Else
IsPunctuation = False
Exit For
End Select
Next
End Function