Public Class Form1
 
    Private Shadows Sub Load() Handles MyBase.Load
 
        Dim sb As New System.Text.StringBuilder
        Dim Values As New List(Of Integer()) From
            {
                ({1I, 20, 1I}),
                ({7I, 22, 4I}),
                ({8I, 27, 11}),
                ({20, 29, 17}),
                ({23, 33, 22}),
                ({39, 46, 31})
            }
 
        For Each ValueCol() As Integer In Values
 
            Dim Value1 As Integer = ValueCol(0)
            Dim Value2 As Integer = ValueCol(1)
            Dim Value3 As Integer = ValueCol(2)
            Dim Diff1 As String = GetDifferenceExpression(Value1, Value2)
            Dim Diff2 As String = GetDifferenceExpression(Value2, Value3)
 
            sb.AppendLine(String.Format("{0} -> {1} = {2}",
                          Value1.ToString("00"), Value2.ToString("00"), Diff1))
 
            sb.AppendLine(String.Format("{0} -> {1} = {2}",
                          Value2.ToString("00"), Value3.ToString("00"), Diff2))
 
            sb.AppendLine()
 
        Next ValueCol
 
        MessageBox.Show(sb.ToString)
 
        Application.Exit()
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim Archivo As System.IO.FileStream
            ' crea un archivo vacio prueba.txt  
            Archivo = System.IO.File.Create("c:Documentos\Prueba.txt")
            ' error  
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    ' Get Difference expression
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MessageBox.Show(GetDifferenceExpression(5, 10))
    '
    ''' <summary>
    ''' Gets the arithmetic sum/rest difference expression between two values.
    ''' </summary>
    ''' <param name="Value1">The first value.</param>
    ''' <param name="Value2">The second value.</param>
    ''' <returns>The arithmetic expression.</returns>
    Friend Function GetDifferenceExpression(ByVal Value1 As Long, ByVal Value2 As Long) As String
 
        Select Case Value2
 
            Case Is > Value1 ' Value2 is bigger than Value1.
                Return String.Format("+{0}", CStr(Value2 - Value1))
 
            Case Is < Value1 ' Value2 is lower than Value1.
                Return String.Format("-{0}", CStr(Value1 - Value2))
 
            Case Else ' Value2 is equals to Value1.
                Return "0"
 
        End Select
 
    End Function
 
End Class