"VBA" Programlama dilinde "Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub Main()
    Dim santigratStr As String
    Dim santigrat As Integer
    Dim fahrenheit As Single
    
    Debug.Print "Santigrat cinsinden sıcaklığı girin: "
    santigratStr = InputBox("Santigrat cinsinden sıcaklığı girin:")
    santigrat = CInt(santigratStr)
    fahrenheit = ((9 * santigrat) / 5) + 32

    Debug.Print "Fahrenheit cinsinden sıcaklık: " & fahrenheit
End Sub