VBA separate uppercase words from lowercase words.

Hi everyone. Basically, I have a txt file with different words and each one has it's own row. I have to copy them using VBA from txt to Excel file and then separate the UPPERCASE and LOWERCASE words. Words that start with the UPPERCASE should be in column A, but words that start with LOWERCASE should be in column B.
I have this code so far which copies the words from txt file to excel:

Public Sub aaa()


Dim i As Long, j As Long
Dim myStr As String
Dim Words() As String


'CHECK THE FILE EXISTS, IF NOT QUIT
If Dir("C:\Users\Robert\Desktop\ekselis\forexcel.txt") = "" Then
MsgBox ("File not Found")
Exit Function 'ADDED QUIT MESSAGE
End If


'FILE TO OPEN
Open "C:\Users\Robert\Desktop\ekselis\forexcel.txt" For Input As #1


'LOOP COUNTER
i = 0


'LOOP THROUGH FILE
Do Until EOF(1)


'READ A LINE
Line Input #1, myStr


'SEPERATE THE LINE BY WORDS
Words = Split(myStr, " ")


'LOOP THROUGH WORDS ARRAY
For j = LBound(Words) To UBound(Words)


'IF THE WORD IS NOT A ""
If Words(j) <> "" Then


'THEN PLACE THE WORD IN THE CELL
ActiveCell.Offset(i, j) = Words(j)


End If


Next


i = i + 1
Loop




Close #1


End Function

I`m not really sure how to organise the IF statements in a loop to complete my task... Thanks!

'this will scan the column then set the upper/lower. run: SplitUpperLower

'-----------
Sub SplitUpperLower()
'-----------
Dim vRet
range("A2").select
While ActiveCell.Value <> ""
    vRet = TestCase(ActiveCell.Value)
    Select Case vRet
    Case "UPPER"
       ActiveCell.Offset(0, 1).Value = ActiveCell.Value
    Case "LOWER"
       ActiveCell.Offset(0, 2).Value = ActiveCell.Value
    End Select
    
    ActiveCell.Offset(1, 0).Select   'next row
Wend
End Sub

'-----------
private Function TestCase(pvWord)
'-----------
Dim vChr

vChr = Left(pvWord, 1)
Select Case Asc(vChr)
Case 65 To 90
        'its upper case
  TestCase = "UPPER"
Case 67 To 122
         'lower case
  TestCase = "LOWER"
Case Else
         'neither ,not letter
  TestCase = "neither"
End Select
End Function

cross-posted http://www.vbaexpress.com/forum/show...owercase-words