Find alphabets in a cell

Sub Get_Alpha()

For I = 1 To Range("A1").End(xlDown).Row

    Alp = ""

    For J = 1 To Len(Range("A" & I).Value)

        StrV = Range("A" & I).Value

        If Asc(Mid(StrV, J, 1)) >= 65 And Asc(Mid(StrV, J, 1)) <= 90 Then

            Alp = Alp & Mid(StrV, J, 1)

        ElseIf Asc(Mid(StrV, J, 1)) >= 97 And Asc(Mid(StrV, J, 1)) <= 122 Then

            Alp = Alp & Mid(StrV, J, 1)

        End If

    Next J

    Range("B" & I).Value = Alp

Next I

End Sub