In a list box some email

now I will that the corresponding name to

the email

```
rs.MoveLast
rs.MoveFirst
max = rs.RecordCount
rs.MoveFirst
LstData3.Clear
List1e.Clear
For i = 1 To max
If Not Len(Trim(rs("Email"))) = 0 Then LstData3.AddItem rs("email") & " " & rs("eftn") & " " & rs("namn")
If Not Len(Trim(rs("Email1"))) = 0 Then LstData3.AddItem rs("Email1") & " " & rs("eftn") & " " & rs("namn")
rs.MoveNext
```

it working fine but the rs("eftn") and rs("namn")

is coming just after the email

now my question is how to count the email letters

so I can get space between the email and the EFTN and NAMN