TextBox'a veri getirme

[soykan]

Merhabalar,

UserForm üzerinde TextBox'larım bulunmakta bunlara veriler giriyorum. Daha sonra aynı userform'u çağırıp boş olan textboxları dolduruyorum. Daha önce girdiğim hücrede yer alan bilgilerin gelmesini istiyorum. Daha önce yazdıklarımı [ parantez içinde hücreye atadığım için aşağıdaki şekilde yapmaya çalıştım ama olmadı. Nasıl yapabilirim?
Teşekkürler.
Private Sub UserForm_Initialize()

Dim a As Integer
If Cells(4, "e") <> "" Then
a = "=MID([e4],2,FIND(""-"",[e4])-2)"
TextBox1 = a
End If
End Sub

 

[hımmmmmmmm]

If [e4] <> "" Then
   aa = Mid([e4], 2, Len(Trim([e4])) - 2)
   TextBox1 = aa
End If

tam anlamadım ama heralde parantezler atılıp texboxa yazsın istiyosun
yukardaki kot e4 deki bilgiyi texboxa parantezleri atıp getirir

 

[soykan]

Teşekkürler Yaptım ama
Run-time error 13
Type mismatch hatası alıyorum.

 

[hımmmmmmmm]

DIM aa AS integer

yada

DIM a AS integer

satırı varsa yoket

hücrelerde bilgi yoksa bile mutlaka parantezler olmalı..

kotlar amaca uygundur.. farklı uygulama kotları yetersiz kılabilir..
kot e4 hücresi için bende çalışıyor..