How to extract column and row into a variable?

Good Afternoon,
I try to find an answer to my issue
but nothing yet so here i am again
this is the code:
-------------------------------

 Sub blabla()
   Dim something  As String
   Dim Msomething As Range
   Dim r ,l  As Double
   something = ComboBox1.Value    'when i choose one value from combobox
   Set Msomething = Worksheets("Users").Range("A:A").Find(what:=something, LookIn:=xlFormulas)
   MsgBox Msomething.Address(False, False)
End Sub

--------------------------------
The result is A3

well i need to get(extract) in var r the column(A)
and in var l(3) the row

finaly to have something like
cells(r,l)
or
r=A
l=3


Thank you.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

If you're going to use Cells, first parameter is row number, followed by column number/letter.

 Sub blabla()
   Dim something  As String
   Dim Msomething As Range
   Dim r ,l  As Long
   something = ComboBox1.Value    'when i choose one value from combobox
   Set Msomething = Worksheets("Users").Range("A:A").Find(what:=something, LookIn:=xlFormulas)
   r = Msomething.row
   l = Msomething.column
   MsgBox Cells(r, l).Address(False, False) & "  ||  " & Cells(r, l).Value
End Sub

Set Msomething = Worksheets("Users").Range("A:A").Find(what:=something, LookIn:=xlFormulas)
If Msomething = something then
A = Split(Msomething.address,"$")

'Column as Letter(s) eg AA
CL = A(1)

'Column as Number eg 27
CN = Msomething.Column

'Row as Number
R = A(2)

'Or
R = Msomething.Row


End If

Or you could try

Set Msomething = Worksheets("Users").Range("A:A").Find(what:=something, LookIn:=xlFormulas)
If Msomething = something then
A = Split(Msomething.address,"$")

'Column as Letter(s) eg AA
CL = Split(Msomething.address,"$")(1)

'Column as Number eg 27
CN = Msomething.Column

'Row as Number
R = Msomething.Row

End If