'Ein paar Berechnungsprozeduren
 
sub MeternachYard()
tfYard = tfMeter * 0.9144 
end sub
 
sub YardnachMeter()
tfMeter = tfYard / 0.9144 
end sub
 
sub yardnachinch
tfInch = (tfYard  / 0.9144 * 1000) / 25.4)
end sub
 
....
'Die Berechnungen sind ja rein mathematisch haben nicht viel mit VB zu tun.