This gives you row and column of the top left and bottom right.

   Dim rng As Range
   
   Set rng = Range(RefEdit1.Text)
   
   MsgBox rng(1).Row
   MsgBox rng(1).Column
   MsgBox rng(rng.Count).Row
   MsgBox rng(rng.Count).Column

The only difference is it uses numbers instead of letters for the columns.
Generally the numbers are more useful, but you could convert that to letters
if that is what you require...

s = RefEdit.Value
set rng = Range(s)
set rng1 = rng(1)
set rng2 = rng(rng.count)
v1row = rng1.row
v2row = rng2.row
v1Col = rng1.column
v2Col = rng2.column
'
v1Letter = left(rng.Address(0,0),2+(rng1.column<=26))
v2Letter = Left(rng.Address(0,0),2+(rng2.Column<=26))