i am taking value from e4 to Attachmate

MyScreen.Area(10,52,10,8).value = aSheet.range("e4").value
the value has 8 alpha numeric
if it is length <8 charater it copies
for example 8QUEBEC - it shows here 8quebec0
it adds 0 becasue it accepts 8 character
i have
if Len(aSheet.range("4e")) <8 then

MyScreen.Area(10,52,10,8).value = aSheet.range("4e").text
' MyScreen.Sendkeys("<Enter>")
Elseif Len(aSheet.Cells(i,"i")) =8 then
MyScreen.Area(10,52,10,8).value = Trim(aSheet.range("4e")
End if
still it is not working it adds 0
could anybody help me in this