Please help to find errors

[intechvb]

Hi,

I am new to VB, can anyone explain the concept on this code.

Public Sub resultsto(rpath As String, tabname As String)
Dim exapp As Object
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
Dim j As Long
Dim resultssplit As Variant
Dim fieldssplilt As Variant
Dim hrs As Variant
Set exapp = CreateObject("Excel.Application")
exapp.DisplayAlerts = False
If Dir(rpath) <> "" Then
    Set wb = exapp.Workbooks.Open(rpath)
Else
    Set wb = exapp.Workbooks.Add
End If
Set ws = wb.sheeets.Add
ws.Name = tabname
c = 1
hrs = Split(strsomerecordset, vbLf)

If UBound(hrs) <> -1 Then
    For i = 1 To Len(hrs(0))
        If (Mid(hrs(0), i, 1)) = "," Then
            c = c + 1
        End If
        ws.Cells(1, c).Value = ws.Cells(1, c).Value & Mid(hrs(0), i, 1)
    Next i
End If
r = 2
c = 1

If UBound(hrs) > 0 Then
    resultssplit= split(hrs(1),"<rd>"
    For i = 0 To UBound(resultssplit)
        fieldssplit = Split(resultssplit(i), "<fd>")
        For j = 0 To Split(resultsplit)
            ws.Cells(1, c).Value = Replace(fieldssplit(j), "<empty>", "")
            c = c + 1
        Next j
        c = 1
        r = r + 1
else
    ws.Cells(1, c).Value = "no results returned"
end if 

If Dir(rpath) <> "" Then
    wb.Save
Else
    wb.SaveAs rpath
End If
exapp.Quit
End Sub

Thanks

[2kaud]

[When posting code please use code tags so that the code is readable. Go Advanced, select the formatted code and click '#'].

Cheers!

[2kaud]

I'm not a VB programmer so can't really advise - but is there a missing next i after r = r + 1 ??