häkchen ersatz wird nicht richtig gelöscht

Hallo an Alle,
ich brauch eure Hilfe. Ich kann in der Spalte B mittels Doppelklick ein häkchen einfügen.

Syntax dazu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:B999")) Is Nothing Then
If Target.Value = "" Then Hacken Else Target.Clear
Cancel = True
End If
End Sub


Sub Hacken()
ActiveCell.Value = "Ö"
ActiveCell.Font.Name = "Symbol"
End Sub


Wenn das Ö eingetragen wird, dann wird das häkchen gesetzt. Wenn ich mir die Excelliste anschaue dann sehe die häkchen richtig gesetzt (B3). Jetzt lese mit ein VB Appliaktion die Spalte B, Zeile für Zeile aus. Wenn ich nur in B3 das häkchen setze, dann lese ich mit der VB-Appliakation leere Strings aus (B1, B2). In B4 wird ein "Ö" ausgelesen. Nun mein Problem bei allen nachfolgenden Werten in Spalte B wird mir auch ein "Ö" wiedergegeben obwohl ich normal ein leeres Feld (String) erwarten würde. In der Exceldatei wird es aber richtig angezeigt!

Excelspalte

B1:		Es wird mit VB ein "" ausgelesen
B2:		Es wird mit VB ein "" ausgelesen
B3:	Ö	Es wird mit VB ein "Ö" ausgelesen
B4:		Es wird mit VB ein "Ö" ausgelesen
B5:		Es wird mit VB ein "Ö" ausgelesen
B6:		Es wird mit VB ein "Ö" ausgelesen
B7:		Es wird mit VB ein "Ö" ausgelesen
B8:		Es wird mit VB ein "Ö" ausgelesen
B9:		Es wird mit VB ein "Ö" ausgelesen

Könnt Ihr mir weiterhelfen


Dank Euch, Gruß

Alex

Sub Lesen()
Dim i As Integer
For i = 1 To 9
    Debug.Print i, Cells(i, 2).Value, Len(Cells(i, 2).Value)
Next
End Sub

 1                           0 
 2                           0 
 3            Ö              1 
 4                           0 
 5                           0 
 6                           0 
 7                           0 
 8                           0 
 9                           0