fix: MD009 in docs/visual-basic (#17237)

Enable MD009 and ran `markdownlint --fix "docs/visual-basic/**/*.md"`

Author: nschonni

docs/visual-basic/misc/bc30983.md

@@ -55,7 +55,7 @@ Next
 - Use an `As` clause to specify the type of the control variable:  
 
     ```vb  
-    For i As Double = m To n   
+    For i As Double = m To n
     ```  
 
 ## See also

docs/visual-basic/misc/bc31047.md

@@ -18,8 +18,8 @@ Public Class OuterClass     ' Generates compiler error BC31047.
 End Class
 ```
 
-Because `Protected` is a member access modifier, it can only be applied to a class member, such as a property, method, or nested class. 
- 
+Because `Protected` is a member access modifier, it can only be applied to a class member, such as a property, method, or nested class.
+
  **Error ID:** BC31047  
 
 ## To correct this error  

docs/visual-basic/misc/bc31441.md

@@ -24,8 +24,8 @@ End Class
 ```vb  
 Partial Class Product  
 
-    ' Implementation of the partial method, with Private missing,   
-    ' causes this error.   
+    ' Implementation of the partial method, with Private missing,
+    ' causes this error.
     'Sub valueChanged()  
     '    MsgBox(Value was changed to " & Me.Quantity)  
     'End Sub  

docs/visual-basic/misc/bc32127.md

@@ -21,7 +21,7 @@ A variable declared as nullable has been compared to an expression other than `N
 Dim number? As Integer = 5  
 
 If number IsNot Nothing Then  
-  If number.GetType() Is Type.GetType("System.Int32") Then   
+  If number.GetType() Is Type.GetType("System.Int32") Then
 
   End If  
 End If  

docs/visual-basic/misc/bc36557.md

@@ -15,7 +15,7 @@ A non-existent member name has been assigned to a property in an anonymous type
 ' Not valid.  
 Dim anon1 = New With {.Prop1 = 27, .Prop2 = .Prop3}  
 
-' The assignment is valid if the assigned property has been declared   
+' The assignment is valid if the assigned property has been declared
 ' and initialized.  
 Dim anon2 = New With {.Prop1 = 27, .Prop2 = .Prop1}  
 ```  

docs/visual-basic/misc/bc36566.md

@@ -17,7 +17,7 @@ Public Sub ABC(ByVal X As Byte, Optional ByVal Y As Byte = 0, _
                                 Optional ByVal Z As Byte = 0)  
 ' ...  
 ' Argument Y is omitted by position, but supplied by name.  
-Call ABC(6, , Y:=3)     
+Call ABC(6, , Y:=3)
 ```  
 
  **Error ID:** BC36566  

docs/visual-basic/misc/bc36607.md

@@ -18,7 +18,7 @@ A `From` or `Aggregate` clause has been specified without an `In` operator. You
 1. Add the `In` operator and key fields to the `From` or `Aggregate` clause. The following is an example:  
 
 ```vb  
-Dim names = From pers In people   
+Dim names = From pers In people
             Select pers.FirstName, pers.LastName  
 ```  
 

docs/visual-basic/misc/bc36628.md

@@ -12,7 +12,7 @@ ms.assetid: 3e92ae19-6a19-4b0b-9dd9-fba31cdb85a6
 A nullable type cannot be inferred from a reference type, such as an array, a class, or a `String`. The value from which the data type is inferred must be a value type. The following code illustrates this error.  
 
 ```vb  
-'' Not valid.   
+'' Not valid.
 'Dim arrList? = New ArrayList  
 'Dim except? = New Exception  
 'Dim obj? = New Object  

docs/visual-basic/misc/bc36639.md

@@ -12,7 +12,7 @@ ms.assetid: 5913f9b6-2929-4c05-8dd1-00b10fcd5a83
 A lambda expression declared within a `Sub` or function cannot use any `ByRef` parameters of that `Sub` or function. For example, the following code will cause this error because the `ByRef` parameter `n` is used in the lambda expression.  
 
 ```vb  
-'' Not valid.   
+'' Not valid.
 'Sub ExampleSub(ByRef n As Integer)  
 
 '    Dim lambda = Function(p As Integer) p + n  

docs/visual-basic/programming-guide/concepts/async/start-multiple-async-tasks-and-process-them-as-they-complete.md

@@ -138,7 +138,7 @@ Class MainWindow
         Dim downloadTasksQuery As IEnumerable(Of Task(Of Integer)) =  
             From url In urlList Select ProcessURLAsync(url, client, ct)  
 
-        ' ***Use ToList to execute the query and start the download tasks.   
+        ' ***Use ToList to execute the query and start the download tasks.
         Dim downloadTasks As List(Of Task(Of Integer)) = downloadTasksQuery.ToList()  
 
         ' ***Add a loop to process the tasks one at a time until none remain.  
@@ -160,7 +160,7 @@ Class MainWindow
     ' Bundle the processing steps for a website into one async method.  
     Async Function ProcessURLAsync(url As String, client As HttpClient, ct As CancellationToken) As Task(Of Integer)  
 
-        ' GetAsync returns a Task(Of HttpResponseMessage).   
+        ' GetAsync returns a Task(Of HttpResponseMessage).
         Dim response As HttpResponseMessage = Await client.GetAsync(url, ct)  
 
         ' Retrieve the website contents from the HttpResponseMessage.