Dim x as long ' evtl byte

x=Int(Temperaturpoel)
Tempstringpoel = Str(x)

'etc.