Перевести значение веса, выраженное в граммах, в унции (1 унция = 28.3 г) - VB

Private Sub Command1_Click()
x = Text1 * 28.3 'Умножением числа в окне Text1 на значение 1унция=28.3 грамма находим значение в граммах
Picture1.Cls
Picture2.Cls
'Используем форматный вывод для вывода  данных
 Picture1.Print x
 Picture1.Print Format(x, "000.000") ' Выводит цифру на ноль
 Picture1.Print Format(x, "0.000") ' Выводит цифру или не выводит ничего
 Picture1.Print Format(x, "###.###") 'При отстутствии цифр ничего не отображается
 Picture1.Print Format(x, "###.000")
 Picture1.Print Format(x, "##0.0##")
 Picture1.Print Format(x, "0.000%") ' Умножает на 100 добавляет знак %
 
 Picture1.Print Format(x, "h:m:s") ' Вывод времени с заданным разделителем
 Picture1.Print Format(x, "h/m/s")
 Picture1.Print Format(x, "General Number") ' Число без разделителей,групп,разрядов
 Picture1.Print Format(x, "Currency") ' Денежный с разделителями групп разрядов,если требуется.
 Picture1.Print Format(x, "Fixed") 'Не менее одной цифры слева и две справа от десятичного разделителя
 Picture1.Print Format(x, "Standard") 'Как Fixed и кроме этого разделители групп рарядов
 Picture1.Print Format(x, "Percent") 'Умножает на 100,добавляет знак %,после десятичного разделителя 2 цифры
 Picture1.Print Format(x, "Scientific") 'Использует стандартное экспоненцальное представление числа
 Picture2.Print "Формат не задан"
 Picture2.Print "000.000"
 Picture2.Print "0.000"
 Picture2.Print "###.###"
 Picture2.Print "###.000"
 Picture2.Print "##0.##0"
 Picture2.Print "0.000%"
 Picture2.Print "h:m:s"
 Picture2.Print "h/m/s"
 Picture2.Print "General Number"
 Picture2.Print "Currency"
 Picture2.Print "Fixed"
 Picture2.Print "Standard"
 Picture2.Print "Percent"
 Picture2.Print "Scientific "

 End Sub
 
Private Sub Command2_Click()
End
End Sub