Public Class Form1
 
    Dim strarray() As String = _
    "NULL,'Correcto','mal,NULL,''mal'',NULL,'mal'',NULL,''mal',mal',NULL".Split(",")
 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
 
        For Each value In strarray
 
            Select Case True
 
                Case value.StartsWith("'") AndAlso value.EndsWith("'")
                    MsgBox(String.Format("'{0}'", value.Substring(1, value.Length - 2).Replace("'", "\'")))
 
                Case value.StartsWith("'") AndAlso Not value.EndsWith("'")
                    MsgBox(value.Replace("'", "\'"))
 
                Case value.EndsWith("'") AndAlso Not value.StartsWith("'")
                    MsgBox(value.Replace("'", "\'"))
 
                Case Else
                    MsgBox(value)
 
            End Select
 
        Next value
 
    End Sub
 
End Class

C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\ProjectTemplates\VisualBasic\Windows\1033\WindowsApplication\Form1.vb

C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\ProjectTemplatesCache\VisualBasic\Windows\1033\WindowsApplication\Form1.vb

Public Class Form1
 
#Region " Form "
 
        ' Load
        Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
            ' Put some code here...
        End Sub
 
        ' Shown
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
            ' Put some code here...
        End Sub
 
        ' Closing
        Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
            ' Put some code here...
        End Sub
 
#End Region
 
#Region " Buttons "
 
        ' Button 1 [CLICK]
         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            ' Put some code here...
         End Sub
 
        ' Button 2 [CLICK]
        ' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            ' Put some code here...
        ' End Sub
 
#End Region
 
#Region " Miscellaneous Methods "
 
        Private Sub Procedure1()
            ' Put some code here...
        End Sub
 
        Private Function Function1(ByVal Something As Object) As Object
            ' Put some code here...
            Return Something
        End Function
 
#End Region
 
End Class

Public Class Form1
 
    Dim WithEvents Timer1 As New Timer With {.Interval = 10, .Enabled = True}
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        InfiniteProgressBar(ProgressBar1)
    End Sub
 
    Private Sub InfiniteProgressBar(ByVal ProgressBar As ProgressBar, _
                                    Optional value As Int32 = 1)
 
        Select Case ProgressBar.Value
 
            Case Is < ProgressBar.Maximum
                ProgressBar.Value += value
            Case Is >= ProgressBar.Maximum ' Si el valor es igual o mayor que el valor máximo del rango...
                ProgressBar.Value = ProgressBar.Minimum ' Seteamos el valor mínimo (0) a la barra de progreso...
 
        End Select
 
    End Sub
 
End Class