Web Development

I am using the .businessstreet1 / .businessstreet2 / .businessstreet3 / etc method and it is the parsing that is not following suit to combine the pieces correctly. There are approx 1300 contatcs to create and i want the process to be automatic for the user so the Excel option is a non-starter.
Any more ideas please ?

Private Sub ParseStreetAddress()
Dim locAdd4 As String
Dim locAdd5 As String
Dim locAdd6 As String
Dim locN1 As Integer
Dim locN2 As Integer
Dim locN3 As Integer
Dim locN4 As Integer
Dim locN5 As Integer
Dim locN6 As Integer
Dim locCRLF As String
Dim locTmp As String
Dim locLF As String

locCRLF = Chr(13) & Chr(10)
locLF = Chr(10)
gblAdd1 = ""
gblAdd2 = ""
gblAdd3 = ""
locAdd4 = ""
locAdd5 = "" locAdd6 = ""

If Len(gblAdd0) = 0 Then Exit Sub

locN1 = InStr(gblAdd0, locLF) 'Find LF
If locN1 = 0 Then
'No, grab the first address line and quit
gblAdd1 = gblAdd0
Exit Sub
End If

'Found LF, grab first address line
gblAdd1 = Left(gblAdd0, locN1 - 1)
If Right(gblAdd1, 1) = Chr(13) Then gblAdd1 = Left(gblAdd1, Len(gblAdd1) - 1)


locN2 = InStr(locN1 + 1, gblAdd0, locLF) 'Is there another one?
If locN2 = 0 Then
'No, grab the second address line and quit
gblAdd2 = Mid(gblAdd0, locN1 + 1)
Exit Sub

Else
'Found CRLF, grab second address line
gblAdd2 = Mid(gblAdd0, locN1 + 1, locN2 - locN1 - 1)
If Right(gblAdd2, 1) = Chr(13) Then gblAdd2 = Left(gblAdd2, Len(gblAdd2) - 1)
End If

locN3 = InStr(locN2 + 1, gblAdd0, locLF) 'Is there another one?
If locN3 = 0 Then
'No, grab the third address line and quit
gblAdd3 = Mid(gblAdd0, locN2 + 1)
Exit Sub
Else
'Found LF, grab third address line
gblAdd3 =Mid(gblAdd0, locN2 + 1, locN3 - locN2 - 1)
If Right(gblAdd3, 1) = Chr(13) Then gblAdd3 = Left(gblAdd3, Len(gblAdd3) - 1)
End If

locN4 = InStr(locN3 + 1, gblAdd0, locLF) 'Is there another one?
If locN4 = 0 Then'No, grab the fourth address line
locAdd4 = Mid(gblAdd0, locN3 + 1)
'Combine the first and second addresses, move 3 to 2, move 4 to 3
locTmp = gblAdd1 & " " & gblAdd2
gblAdd1 = locTmp
gblAdd2 = gblAdd3 gblAdd3 = locAdd4
Exit Sub
Else
'Found LF, grab fourth address line
locAdd4 = Mid(gblAdd0, locN3 + 1, locN4 - locN3 - 1)
'Combine the first and second addresses, move 3 to 2, move 4 to 3
locTmp = gblAdd1 & " " & gblAdd2
gblAdd1 = locTmp
gblAdd2 = gblAdd3
gblAdd3 = locAdd4

End If

' grab rest of the string
'Clear all CR, LF, or other control chars to space
locAdd5 = Mid(gblAdd0, locN4 + 1)
For locN1 = 1 To Len(locAdd5)
If Asc(Mid(locAdd5, locN1, 1)) < 32 Then Mid(locAdd5, locN1, 1) = " "
Next

'Combine the second and third addresses, move this one to 3
locTmp = gblAdd2 & " " & gblAdd3
gblAdd2 = locTmp
gblAdd3 = locAdd5

End Sub

a)Yes
b)No
c)No
Sorry got the answer, soon after saying you rfirst answer didnt help! It did, got the idea to build whole address into one string and pass that to item.bussinessaddress and let outlook deal with parsing it into the street,city,state(is everything american?),etc. It works fine now.
Thank you very much for the idea.
The export takes > 15 minutes now and the pc crashes if the folder is open in outlook at the same time as access doing the export, is this normal/to be expected ?
thanks again, code looks interesting, will copy it and try to understandit !!
Fatherjack