Indsæt kopieret tekst i userform

Jeg har en userform, hvor jeg gerne vil have indsat et tal fra den aktive celle, eller cellen 3 til højre for den aktive celle (hvordan vælger jeg cellen 3 til højre? activecelle.select (0,-3).copy) eller?

Jeg har lavet en makro der tager en kopi af den aktive celle, men kan ikke få den til at sætte værdien ind i userformen?
Først kører jeg "Kopi" makroen, derefter "Userformen"

Min makro der er knyttet til knappen ser sådan ud

Sub ShowUserInfoForm()
  ActiveCell.Copy
 
    ' Vis dialogboks
    frmUserInfo.Show
   
  ActiveCell.PasteSpecial
   
    ' Luk pænt ned
    Set frmUserInfo = Nothing
   
    Application.CutCopyMode = False

End Sub

********
Min Userform ser sådan ud

Dim dTal As Double

'Indtastningfelt 1
    With txt1
    If IsNumeric(.Text) = False Or Len(.Text) = 0 Then
      .Text = ""
      MsgBox "Det skal være et tal"
      .SetFocus
      Exit Sub     
  Else
      'Teksten konverteres til et tal
      dTal = CDbl(.Text)     
  End If
End With
'Tallet indsættes i celle B2
    Range("B2").Value = dTal