如何在VB 2017中用2个拆分字符串填充字典

Dim myDictionary As New Dictionary(Of String, String)

Dim inputString1 As String = "key1:value1"
Dim inputString2 As String = "key2:value2"

Dim splitArray1 As String() = inputString1.Split(":")
Dim splitArray2 As String() = inputString2.Split(":")

If splitArray1.Length = 2 Then
    myDictionary.Add(splitArray1(0), splitArray1(1))
End If

If splitArray2.Length = 2 Then
    myDictionary.Add(splitArray2(0), splitArray2(1))
End If

Dim value1 As String = myDictionary("key1")
Dim value2 As String = myDictionary("key2")