Sua explicação está um pouco vaga, supondo que o valor está na Plan1 Range A2 : seria mais ou menos assim :

Ao abrir o Formulário :

Private Sub UserForm_Activate()
    TextBox1.Value = Sheets("Plan1").Range("A2").Value
End Sub

Associado a um commandButton no Formulario :

Private Sub CommandButton1_Click()
  TextBox1.Value = Sheets("Plan1").Range("A2").Value
End Sub

[]s

Obrigado pela informação.

Vou explicar de uma forma coerente.:

Tenho um codigo especifico automatico. Caso seja um item novo o codigo é 1 e assim em diante.

Quero que quando o codigo for = a 1, ele preenche algumas informações em textbox1, puxando essas informações em outro arquivo separado. " quase uma função PROCV"

Sendo assim o seguinte:
Tenho um arquivo separado, com varias colunas. Então assim que eu abrir meu formulario e o codigo for 1 eu quero que ele traga em outro textbox a informação que esta dentro da celula.

Ola,

Não sei se entendi bem, pois ainda, conforme o Mauro comentou, as explicações estao um pouco vagas. Talvez um exemplo nos ajude a entender melhor.

Pelo o que compreendi (não sei se entendi bem) ficaria algo como isso:

Private Sub UserForm_Initialize()

    If Sheets ("Plan1"). Range("A2").Value = "1" then
          TextBox1.Value = Sheets("Plan1").Range("A2").Value
    end if

End Sub